home *** CD-ROM | disk | FTP | other *** search
/ The National Palace Museum Experience / The National Palace Museum Experience.iso / Programs / Object.dxr / 00106.ls < prev    next >
Encoding:
Text File  |  1998-11-19  |  855 b   |  27 lines
  1. global objpctsprite
  2.  
  3. on mouseWithin
  4.   set mycursor to the number of member "Magnify"
  5.   set mycursormask to the number of member "Magnify Mask"
  6.   set the cursor of sprite objpctsprite to [mycursor, mycursormask]
  7. end
  8.  
  9. on mouseLeave
  10.   set the cursor of sprite objpctsprite to -1
  11. end
  12.  
  13. on mouseDown
  14.   global closeupsprite, notationsprit, notationsprite, contentsprite, objnamesprite, objnum, sidecounter, gpictfilepath
  15.   puppetSprite(closeupsprite, 0)
  16.   puppetSprite(notationsprite, 0)
  17.   set the visible of sprite contentsprite to 0
  18.   set the visible of sprite objnamesprite to 0
  19.   initialbutton()
  20.   set largepct to objnum & "1a"
  21.   set x to the number of member "CloseView"
  22.   set the fileName of member "CloseView" to the pathName & gpictfilepath & "Magnify\" & largepct & ".pct"
  23.   set the name of member x to "CloseView"
  24.   updateStage()
  25.   go("CloseView")
  26. end
  27.